home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / COMMUNIC / WCUTIL10.ZIP / WCUTIL.TPL < prev    next >
Text File  |  1993-07-26  |  25KB  |  716 lines
  1. ;***********************************************************************
  2. ;WCUTIL TPL file
  3. ;This TPL file has been customized for use with WCUTIL.EXE an add-on
  4. ;utility for WinCIS.
  5. ;
  6. ;Lines commented out by the author will be marked with three semi-colons
  7. ;
  8. ;blocks of added commands will be delineated by:
  9. ;------------------------------------------------------------------------
  10. ;as will explanatory comments
  11. ;***********************************************************************
  12. [PROLOG]
  13. ;
  14. ; This script file was created on &&DATE at &&TIME by &&USERNAME.
  15. ;
  16. ;***********************************************************************
  17. ;       WinCIS &&VERSION
  18. ;       Copyright(C) 1992
  19. ;       Larry Lee (76670,1471)
  20. ;       16038 Augusta Drive
  21. ;       Chino Hills, Ca 91709
  22. ;       (Script language notes have been moved to the bottom of file)
  23. ;***********************************************************************
  24. ;
  25. ;
  26. ;------------------------------------------------------------------------
  27. ;;;NOTE: I have found that because I have set the next three options
  28. ;;; permanently, they can be commented out.  This speeds the logon marginally
  29. SEND SET BRIEF YES^M
  30. WAIT !
  31. SEND SET PAGED NO^M
  32. WAIT !
  33. SEND SET BLANK YES^M
  34. WAIT !
  35. ;;;
  36. SEND SET WIDTH 80^M
  37. WAIT !
  38. ;
  39. ;------------------------------------------------------------------------
  40. ; Execute WCUTIL.SCR if it exists in the ControlPath
  41. ;------------------------------------------------------------------------
  42.   IF FILEEXISTS &&CONTROLPATHWCUTIL.SCR
  43.     @ECHO No WCUTIL.SCR to execute.
  44.     %ECHO Executing WCUTIL.SCR...
  45.     %DO &&CONTROLPATHWCUTIL.SCR
  46.     %KILLFILE &&CONTROLPATHWCUTIL.SCR
  47. ;------------------------------------------------------------------------
  48. [EPILOG]
  49. ;
  50. ;***********************************************************************
  51. ; All Done, Just Log off CompuServe
  52. ;***********************************************************************
  53. ;
  54. LOGOFF
  55.  
  56. [READ MAIL]
  57. ;
  58. ; Read Any Waiting CompuServe Mail
  59. ;
  60.  IF MAILWAITING
  61.   @REMOVEACTION MAIL Read.Waiting
  62.   %ECHO Reading CompuServe Mail
  63.   %READMAIL &&SYSMESSAGEPATHMAIL.MSG
  64.     %%ECHO CompuServe Mail Read Complete!
  65.     %%REMOVEACTION MAIL Read.Waiting
  66.     %@ECHO Unable to Read your CompuServe Mail!
  67.  
  68.  
  69. [SEND MAIL]
  70. ;
  71. ; Send Any Waiting CompuServe Mail
  72. ;
  73.   IF FILEEXISTS &&SYSMESSAGEPATHMAIL.SND
  74.   @REMOVEACTION MAIL Send.Replies
  75.   %ECHO Sending CompuServe Mail
  76.   %SENDMAIL  &&SYSMESSAGEPATHMAIL.SND
  77.     %@ECHO Unable to Send your CompuServe Mail!
  78.     %%ECHO CompuServe Mail Send Complete!
  79.     %%REMOVEACTION MAIL Send.Replies
  80.  
  81. [PROMPT MAIL OUTBOX]
  82. ;
  83. ; Ask what about Overwriting to the Mail OutBox
  84. ;
  85.      %%ASK OVERWRITE? &&SYSMESSAGEPATHMAIL.MOX  Do you want to save your outgoing Mail in &&SYSMESSAGEPATHMAIL.MOX
  86.      %%%ECHO Saving Your Out Going Mail to &&SYSMESSAGEPATHMAIL.MOX
  87.      %%%FILEMARK &&SYSMESSAGEPATHMAIL.MOX MAIL_SENT CIS:MAIL
  88.      %%%COPYFILE &&SYSMESSAGEPATHMAIL.SND &&SYSMESSAGEPATHMAIL.MOX
  89. ; At This point the Mail File Is No Longer Needed
  90.      %%KILLFILE &&SYSMESSAGEPATHMAIL.SND
  91.  
  92.  
  93. [APPEND MAIL OUTBOX]
  94. ;
  95. ; Append Queued Mail to the Mail OutBox
  96. ;
  97.    %%ECHO Appending your outgoing Mail to &&SYSMESSAGEPATHMAIL.MOX
  98.    %%FILEMARK &&SYSMESSAGEPATHMAIL.MOX MAIL_SENT &&FORUMNAME
  99.    %%COPYFILE &&SYSMESSAGEPATHMAIL.SND &&SYSMESSAGEPATHMAIL.MOX
  100. ; At This point the Mail File Is No Longer Needed
  101.    %%%KILLFILE &&SYSMESSAGEPATHMAIL.SND
  102.  
  103. [OVERWRITE MAIL OUTBOX]
  104. ;
  105. ; Overwrite Queued Mail to the &&FORUMNAME OutBox
  106. ;
  107.    %%ECHO Saving your outgoing Mail in &&SYSPATH&&FORUMNAME.MOX
  108.    %%KILLFILE &&SYSMESSAGEPATHMAIL.MOX
  109.    %%FILEMARK &&SYSMESSAGEPATHMAIL.MOX MAIL_SENT &&FORUMNAME
  110.    %%COPYFILE &&SYSMESSAGEPATHMAIL.SND &&SYSMESSAGEPATHMAIL.MOX
  111. ; At This point the Message File Is No Longer Needed
  112.    %%%KILLFILE &&SYSMESSAGEPATHMAIL.SND
  113.  
  114. [DELETE MAIL OUTBOX]
  115. ;
  116. ; Never Save Queued Mail to the Mail OutBox
  117. ;
  118.    %%ECHO Deleting outgoing Mail: &&SYSMESSAGEPATHMAIL.SND
  119. ; At This point the Mail File Is No Longer Needed
  120.    %%KILLFILE &&SYSMESSAGEPATHMAIL.SND
  121.  
  122. [GO FORUM]
  123. ;
  124. ;***********************************************************************
  125. ; Lets enter the &&FORUMNAME forum, &&FORUMTITLE
  126. ;***********************************************************************
  127. ECHO Going to &&FORUMNAME, &&FORUMTITLE
  128. ;----------------------------------------------------------------------
  129. ;If you wish to grab forum announcements each time you enter a forum
  130. ;uncomment the following four lines:
  131. ;----------------------------------------------------------------------
  132. ;;;FILEMARK &&MESSAGEPATH&&FORUMNAME.MSG Read_Annoucements &&FORUMNAME
  133. ;;;PUTFILE &&MESSAGEPATH&&FORUMNAME.MSG ^M^J#: 0 S-1/ Forum Annoucement^M^J    01-Jan-93  &TIME
  134. ;;;PUTFILE &&MESSAGEPATH&&FORUMNAME.MSG ^M^JSb: News Flash^M^JFm: System^M^JTo:^M^J^M^J
  135. ;;;CAPTURE &&MESSAGEPATH&&FORUMNAME.MSG
  136. ;------------------------------------------------------------------------
  137. GO &&GATEWAY:&&FORUMNAME
  138. ;
  139. ; Join Forum If Required!
  140. ;
  141.   %IF NOT JOINED
  142.     %@REMOVEACTION &&FORUMNAME Join.Forum     
  143.     %%ECHO Attempting to Join &&FORUMNAME, &&FORUMTITLE
  144.     %%JOIN
  145.         %%%ECHO Successfully Joined &&FORUMNAME, &&FORUMTITLE
  146.       %%%REMOVEACTION &&FORUMNAME Join.Forum     
  147.         %%WAIT !
  148.         %%@ECHO Sorry, unable to Join &&FORUMNAME, &&FORUMTITLE
  149.         %%@SETERRORLEVEL 0 FALSE
  150. ;
  151. ; Set Session Defaults to Command Mode for Forum Processing
  152. ;
  153. ;------------------------------------------------------------------------
  154. ; BY DEFAULT WINCIS SETS THE FORUM DEFAULTS EVERY TIME IT ENTERS A FORUM
  155. ; I FIND THIS WASTED TIME.  THEREFORE, IN MY OWN TPL I HAVE COMMENTED OUT 
  156. ; THE FOLLOWING SIX LINES AND CHANGED THE LOGIC LATER IN THE TPL FILE UNDER THE
  157. ; [SET FORUM DEFAULTS] SECTION SO THAT THE PROMPT CHARACTER IS SET TO ^G
  158. ; PERMANENTLY
  159.   %ECHO Setting Temporary Session Defaults in &&FORUMNAME, &&FORUMTITLE
  160.   %SEND OPT;INI;1;MOD;3;EDI EDIT;PAU N;REP LIST;TYPE N;SKIP N;CHAR;S^M
  161.   %WAIT New prompt:
  162.   %%SEND ^^G^M
  163.   %WAIT FORUM !
  164.     %@SETERRORLEVEL 0 FALSE
  165. ;------------------------------------------------------------------------
  166. ;
  167.   @ECHO Sorry, unable to enter the &&FORUMNAME Forum!
  168.   %ECHO Now in &&FORUMNAME, &&FORUMTITLE
  169. ;
  170. ; Check for Waiting Messages in the &&FORUMNAME Forum
  171. ;
  172.   %IF MESSAGESWAITING
  173.     %@ECHO No Messages Waiting to be Read On &&FORUMNAME, &&FORUMTITLE
  174.     %@REMOVEACTION &&FORUMNAME Read.Waiting.Messages
  175.     %%ECHO Reading Waiting Messages of &&FORUMNAME, &&FORUMTITLE
  176.     %%SCAN &&MESSAGEPATH&&FORUMNAME.MSG READ WAIT
  177.     %%REMOVEACTION &&FORUMNAME Read.Waiting.Messages
  178. ;
  179.  
  180. ;------------------------------------------------------------------------
  181. ;Check to see if there's an upload file
  182. ;------------------------------------------------------------------------
  183. %IF FILEEXISTS &&CONTROLPATH&&FORUMNAME.UPL
  184.   %@ECHO NO &&CONTROLPATH&&FORUMNAME.UPL TO EXECUTE
  185.   %%ECHO Executing upload script: &&CONTROLPATH&&FORUMNAME.UPL
  186.   %%DO &&CONTROLPATH&&FORUMNAME.UPL
  187.   %%%KILLFILE &&CONTROLPATH&&FORUMNAME.UPL
  188.   SETERRORLEVEL 2 TRUE
  189.   
  190. [GO LIB]
  191. ;
  192. ; Lets enter Library #&&LIBRARY of &&FORUMNAME
  193.   %LIB &&LIBRARY
  194. ;
  195. ; If something goes wrong... Inform the user and bypass this Library!
  196. ;   Otherwise all is well... Continue processing (downloads, catalogs, etc)
  197. ;
  198.     %@ECHO Sorry, unable to enter Library #&&LIBRARY of &&FORUMNAME, &&FORUMTITLE
  199.     %%ECHO Now In &&FORUMNAME, &&FORUMTITLE Libraries
  200. ;
  201.  
  202. [JOIN FORUM]
  203. ;
  204. ; Commented Out Since It's Done at GO FORUM Automatically
  205. ; Join The Forum
  206. ;
  207. ;  %IF NOT JOINED
  208. ;    %@REMOVEACTION &&FORUMNAME Join.Forum
  209. ;    %%ECHO Attempting to Join &&FORUMNAME, &&FORUMTITLE
  210. ;    %%JOIN
  211. ;       %%%ECHO Successfully Joined &&FORUMNAME, &&FORUMTITLE
  212. ;       %%%REMOVEACTION &&FORUMNAME Join.Forum
  213. ;       %%@ECHO Sorry, unable to Join &&FORUMNAME Forum!
  214.  
  215. [SET FORUM DEFAULTS]
  216. ;
  217. ; Set Permanent Session Defaults to Command Mode for Forum Processing
  218. ;
  219.   %ECHO Setting Permanent Session Defaults in &&FORUMNAME, &&FORUMTITLE
  220.   %SEND OPT;INI;1;MOD;3;EDI EDIT;PAU N;REP LIST;TYPE N;SKIP N;P^M
  221. ;-----------------------------------------------------------